﻿Imports ControladorasAT.SIREOS
Imports ServiciosAT
Imports Utilitarios
Imports System.Data

Partial Class UserControl_OrdenServicioNota
    Inherits System.Web.UI.UserControl

    Public Sub limpiarCampos()
        txbAsunto.Text = Valores.vacio
        txbDetalle.Text = Valores.vacio
        LblOrden.Text = Session("CodigoOrden")
        listarNotas()
        Session("CodigoOrden") = Valores.vacio
    End Sub

    Private Sub listarNotas()
        Dim oNota As New SireosWSServicio.OrdenServicioNota
        oNota.codOrden = LblOrden.Text
        Dim oCtServicio As New CtServicio
        Dim dt As DataTable = oCtServicio.listarNotas(oNota)
        gridNotas.Columns(0).Visible = True
        gridNotas.DataSource = dt
        gridNotas.DataBind()
        gridNotas.Columns(0).Visible = False
    End Sub

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
        End If
    End Sub

    Protected Sub ibtnNota_Click(sender As Object, e As ImageClickEventArgs) Handles ibtnNota.Click
        txbAsunto.Text = Valores.vacio
        txbDetalle.Text = Valores.vacio
        popupNota.Show()
    End Sub

    Protected Sub gridNotas_PageIndexChanging(sender As Object, e As GridViewPageEventArgs) Handles gridNotas.PageIndexChanging
        listarNotas()
        gridNotas.Columns(0).Visible = True
        gridNotas.PageIndex = e.NewPageIndex
        gridNotas.DataBind()
        gridNotas.Columns(0).Visible = False
    End Sub

    Protected Sub ibtnGrabar_Click(sender As Object, e As ImageClickEventArgs) Handles ibtnGrabar.Click
        If txbAsunto.Text = Valores.vacio Then
            Helper.mensajeControl(Me, Mensajes.ingresarAsuntoNota)
        ElseIf txbDetalle.Text = Valores.vacio Then
            Helper.mensajeControl(Me, Mensajes.ingresarDetalleNota)
        Else
            Dim oNota As New SireosWSServicio.OrdenServicioNota
            oNota.codOrden = LblOrden.Text
            oNota.asuNota = txbAsunto.Text
            oNota.detalleNota = txbDetalle.Text
            oNota.usuRegistro = Session("CodigoUsuario")

            Dim oCtServicio As New CtServicio
            Dim oMensajeInformatico As New SireosWSServicio.MensajeInformativo
            oMensajeInformatico = oCtServicio.registrarNotaServicio(oNota)
            listarNotas()
            Helper.mensajeControl(Me, oMensajeInformatico.descripcionMensaje)
            popupNota.Hide()
        End If
    End Sub

    Protected Sub ibtnCancelar_Click(sender As Object, e As ImageClickEventArgs) Handles ibtnCancelar.Click
        popupNota.Hide()
    End Sub

End Class